(map_char_table): Set size to CHAR_TABLE_ORDINARY_SLOTS.

diff --git a/src/fns.c b/src/fns.c
index 74f256eaca49e05ae249e7ff942efe27fe735548..1bcb963e20fdce637c2b5197053f146b0897c55f 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -1336,7 +1336,7 @@ map_char_table (c_function, function, chartable, depth, indices)
      Lisp_Object (*c_function) (), function, chartable, depth, *indices;
 {
   int i;
-  int size = XCHAR_TABLE (chartable)->size;
+  int size = CHAR_TABLE_ORDINARY_SLOTS;
 
   /* Make INDICES longer if we are about to fill it up.  */
   if ((depth % 10) == 9)